www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Model\ComponentLabels\可后台管理复选项列表的复选框控件\editmode_label.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:$editmode$-ComponentLabel-$$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:flbiao,复选框项配置表表名$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:在修改页里的标签$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%><%

mylastcboxa=$mylast$value$&""

set rsfffx=server.CreateObject("adodb.recordset")
  
rsfffx.open "select * from $model$biaoqz$$xxvar$flbiao order by id asc",newdsoft_conn_obj,1,1

if rsfffx.eof then response.write "请先在复选项管理里添加复选项"

do while not rsfffx.eof
%>

<%
for fxx_y=1 to 4
if rsfffx.eof then exit for
%>
<input type="checkbox" value="1" id="$post$myname$_<%=rsfffx("id")%>" name="$post$myname$_<%=rsfffx("id")%>" <%if  get_is_checked_xm(mylastcboxa,rsfffx("id"))="1" then response.write "checked"%>><%=rsfffx("Specialname")%> 
<%
rsfffx.movenext
next
%>
<br>
<%

loop

rsfffx.close

set rsfffx=nothing
%>